home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_6_More Code3.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  5.7 KB  |  181 lines
  1. global gMaster, gNotes, gSound, gFlashMarkers
  2.  
  3. on mBeginNotes vWhichSprite, vMode
  4.   case vMode of
  5.     "production", "flashpaper1":
  6.       sendAllSprites(#mSetUpGraphicsDouble, vMode, 0)
  7.     "cast":
  8.       if gNotes.pCastSelected = "yes" then
  9.         sendSprite(vWhichSprite, #mState2Graphic)
  10.       else
  11.         sendSprite(vWhichSprite, #mState1Graphic)
  12.       end if
  13.     "credits", "flashpaper2":
  14.       sendAllSprites(#mSetUpGraphicsDouble, vMode, 0)
  15.     "filmmaker":
  16.       if gNotes.pFilmmakerSelected = "yes" then
  17.         sendSprite(vWhichSprite, #mState2Graphic)
  18.       else
  19.         sendSprite(vWhichSprite, #mState1Graphic)
  20.       end if
  21.     "flashpaper3", "flashpaper4":
  22.       sendAllSprites(#mSetUpGraphicsDouble, vMode, 0)
  23.   end case
  24. end
  25.  
  26. on mSetNotes vWhichSprite, vMode
  27.   gSound.mPlayButtonClick()
  28.   if gNotes.pTabStatus = "closed" then
  29.     gNotes.mSlideTab()
  30.   end if
  31.   case vMode of
  32.     "flashpaper3":
  33.       if gNotes.pProductionSelectedSpanish = "yes" then
  34.         gNotes.pProductionSelectedSpanish = "no"
  35.         gMaster.mSummaryDeSelected(gNotes.pProductionCastNameSpanish)
  36.         if gMaster.pLanguageMode = "english" then
  37.           sendSprite(vWhichSprite, #mState1GraphicEnglish)
  38.         else
  39.           sendSprite(vWhichSprite, #mState1GraphicSpanish)
  40.         end if
  41.       else
  42.         gNotes.pProductionSelectedSpanish = "yes"
  43.         gMaster.mSummarySelected(gNotes.pProductionCastNameSpanish)
  44.         if gMaster.pLanguageMode = "english" then
  45.           sendSprite(vWhichSprite, #mState2GraphicEnglish)
  46.         else
  47.           sendSprite(vWhichSprite, #mState2GraphicSpanish)
  48.         end if
  49.       end if
  50.     "flashpaper4":
  51.       if gNotes.pCreditsSelectedSpanish = "yes" then
  52.         gNotes.pCreditsSelectedSpanish = "no"
  53.         gMaster.mSummaryDeSelected(gNotes.pCreditsCastNameSpanish)
  54.         if gMaster.pLanguageMode = "english" then
  55.           sendSprite(vWhichSprite, #mState1GraphicEnglish)
  56.         else
  57.           sendSprite(vWhichSprite, #mState1GraphicSpanish)
  58.         end if
  59.       else
  60.         gNotes.pCreditsSelectedSpanish = "yes"
  61.         gMaster.mSummarySelected(gNotes.pCreditsCastNameSpanish)
  62.         if gMaster.pLanguageMode = "english" then
  63.           sendSprite(vWhichSprite, #mState2GraphicEnglish)
  64.         else
  65.           sendSprite(vWhichSprite, #mState2GraphicSpanish)
  66.         end if
  67.       end if
  68.     "production", "flashpaper1":
  69.       if gNotes.pProductionSelected = "yes" then
  70.         gNotes.pProductionSelected = "no"
  71.         mSummaryDeSelected(gMaster, gNotes.pProductionCastName)
  72.         if gMaster.pLanguageMode = "english" then
  73.           sendSprite(vWhichSprite, #mState1GraphicEnglish)
  74.         else
  75.           sendSprite(vWhichSprite, #mState1GraphicSpanish)
  76.         end if
  77.       else
  78.         gNotes.pProductionSelected = "yes"
  79.         mSummarySelected(gMaster, gNotes.pProductionCastName)
  80.         if gMaster.pLanguageMode = "english" then
  81.           sendSprite(vWhichSprite, #mState2GraphicEnglish)
  82.         else
  83.           sendSprite(vWhichSprite, #mState2GraphicSpanish)
  84.         end if
  85.       end if
  86.     "cast":
  87.       if gNotes.pCastSelected = "yes" then
  88.         gNotes.pCastSelected = "no"
  89.         mSummaryDeSelected(gMaster, gNotes.pCastCastName)
  90.         if gMaster.pLanguageMode = "english" then
  91.           sendSprite(vWhichSprite, #mState1GraphicEnglish)
  92.         else
  93.           sendSprite(vWhichSprite, #mState1GraphicSpanish)
  94.         end if
  95.       else
  96.         gNotes.pCastSelected = "yes"
  97.         mSummarySelected(gMaster, gNotes.pCastCastName)
  98.         if gMaster.pLanguageMode = "english" then
  99.           sendSprite(vWhichSprite, #mState2GraphicEnglish)
  100.         else
  101.           sendSprite(vWhichSprite, #mState2GraphicSpanish)
  102.         end if
  103.       end if
  104.     "credits", "flashpaper2":
  105.       if gNotes.pCreditsSelected = "yes" then
  106.         gNotes.pCreditsSelected = "no"
  107.         mSummaryDeSelected(gMaster, gNotes.pCreditsCastName)
  108.         if gMaster.pLanguageMode = "english" then
  109.           sendSprite(vWhichSprite, #mState1GraphicEnglish)
  110.         else
  111.           sendSprite(vWhichSprite, #mState1GraphicSpanish)
  112.         end if
  113.       else
  114.         gNotes.pCreditsSelected = "yes"
  115.         mSummarySelected(gMaster, gNotes.pCreditsCastName)
  116.         if gMaster.pLanguageMode = "english" then
  117.           sendSprite(vWhichSprite, #mState2GraphicEnglish)
  118.         else
  119.           sendSprite(vWhichSprite, #mState2GraphicSpanish)
  120.         end if
  121.       end if
  122.     "filmmaker":
  123.       if gNotes.pFilmmakerSelected = "yes" then
  124.         gNotes.pFilmmakerSelected = "no"
  125.         mSummaryDeSelected(gMaster, gNotes.pFilmmakerCastName)
  126.         if gMaster.pLanguageMode = "english" then
  127.           sendSprite(vWhichSprite, #mState1GraphicEnglish)
  128.         else
  129.           sendSprite(vWhichSprite, #mState1GraphicSpanish)
  130.         end if
  131.       else
  132.         gNotes.pFilmmakerSelected = "yes"
  133.         mSummarySelected(gMaster, gNotes.pFilmmakerCastName)
  134.         if gMaster.pLanguageMode = "english" then
  135.           sendSprite(vWhichSprite, #mState2GraphicEnglish)
  136.         else
  137.           sendSprite(vWhichSprite, #mState2GraphicSpanish)
  138.         end if
  139.       end if
  140.   end case
  141. end
  142.  
  143. on mGoFlashPaperTab vWhichOne
  144.   if gMaster.pLanguageMode = "english" then
  145.     case vWhichOne of
  146.       1:
  147.         go(gFlashMarkers.FP1 + 2)
  148.       2:
  149.         go("FP2")
  150.       3:
  151.         go("FP1s")
  152.       4:
  153.         go("FP2s")
  154.       5:
  155.         go("FP1")
  156.     end case
  157.   else
  158.     case vWhichOne of
  159.       1:
  160.         go(gFlashMarkers.FP1s + 2)
  161.       2:
  162.         go("FP2s")
  163.       3:
  164.         go("FP3s")
  165.       4:
  166.         go("FP4s")
  167.       5:
  168.         go("FP5s")
  169.     end case
  170.   end if
  171. end
  172.  
  173. on mSetFlashPaper vWhichSprite
  174.   if sprite(vWhichSprite).member.type = #flash then
  175.     sprite(vWhichSprite).originMode = #point
  176.     sprite(vWhichSprite).originH = sprite(vWhichSprite).width / 2
  177.     sprite(vWhichSprite).originV = sprite(vWhichSprite).height / 2
  178.     sprite(vWhichSprite).scaleMode = #noScale
  179.   end if
  180. end
  181.